home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / biz / demo / FamCon35a_demo.lha / Install FamCon 3.5a demo < prev    next >
Text File  |  1996-09-24  |  3KB  |  117 lines
  1. ; script for installing FamilyConnections demo
  2.  
  3. (set @user-level 1)
  4. (welcome "FamilyConnections 3.5 demo")
  5. (set @default_dest "Work:FamCon")
  6. (set @app-name "FamilyConnections 3.5 demo")
  7. (set src_disk "FamCon 3.5 demo:FamCon")
  8.  
  9. ; be sure we can find the target directory.
  10.  
  11. (if (not (exists @default_dest (noreq)))
  12.   (set FamCon_dest
  13.     (askdir
  14.       (prompt "To where should FamilyConnections be installed?")
  15.       (help @askdir-help)
  16.       (default "FamCon")
  17.     )
  18.   )
  19.   (set FamCon_dest @default_dest)
  20. )
  21.  
  22. (set osVersion (getversion) )
  23. (set osVer (/ osVersion 65536))
  24. (set osRev (- osVersion (* osVer 65536) ) )
  25.  
  26. (if (< osVer 36)
  27.   (
  28.     (set copy_list ("You are currently running AmigaDOS %ld.%ld." osVer osRev))
  29.     (set copy_list (cat copy_list "  You must be running AmigaDOS 2.0 or later for"
  30.         " Family Connections to operate properly."))
  31.     (abort copy_list)
  32.   )
  33. )
  34.  
  35. (if (not (exists src_disk (noreq)))
  36.   (set src_disk
  37.     (askdir
  38.        (prompt "From which disk or drawer should FamilyConnections demo be obtained?")
  39.        (help @askdir-help)
  40.        (default "")
  41.     )
  42.   )
  43. )
  44.  
  45. (if (not (exists src_disk (noreq)))
  46.   (abort "The FamilyConnections demo source directory or disk does not seem"
  47.         " to exist.  Aborting.")
  48. )
  49.  
  50. (if (exists FamCon_dest (noreq))
  51.   (if
  52.     (askbool
  53.       (prompt "Your current copy of FamilyConnections appears to be located"
  54.         " in the drawer named \""
  55.         FamCon_dest
  56.         "\". Do you want to overwrite the contents of that drawer?"
  57.       )
  58.       (help    "The installer has determined that you may already have a "
  59.         "copy of FamilyConnections installed on your system. If this"
  60.         " is wrong or you want the update installed elsewhere, select"
  61.         " NO as an answer. Otherwise, select YES."
  62.       )
  63.       (default 1)
  64.     )
  65.     (set @default_dest FamCon_dest)
  66.     (set FamCon_dest        ; else user wants in different place
  67.       (askdir
  68.     (prompt "In which disk or drawer should FamilyConnections be installed?")
  69.     (help @askdir-help)
  70.     (default "FamCon")
  71.       )
  72.     )
  73.   )
  74. )
  75.  
  76. (if (not (exists FamCon_dest) )
  77.   (abort "The FamilyConnections directory or disk does not seem"
  78.         " to exist.  Aborting.")
  79. )
  80.  
  81. (protect (tackon FamCon_dest "FamConView") "+d +w +r")
  82.  
  83. (working "Copying files")
  84. (copyfiles
  85.   (source src_disk)
  86.   (all)
  87.   (dest FamCon_dest)
  88. )
  89.  
  90. (working "Deleting obsolete files")
  91.  
  92. (if (exists (tackon FamCon_dest "print_ctl_end") (noreq))
  93.   (delete (tackon FamCon_dest "print_ctl_end"))
  94. )
  95.  
  96. (if (exists (tackon FamCon_dest "dump_gen") (noreq))
  97.   (delete (tackon FamCon_dest "dump_gen"))
  98. )
  99. (if (exists (tackon FamCon_dest "dump_sps") (noreq))
  100.   (delete (tackon FamCon_dest "dump_sps"))
  101. )
  102. (if (exists (tackon FamCon_dest "FamCon_GED_in") (noreq))
  103.   (delete (tackon FamCon_dest "FamCon_GED_in"))
  104. )
  105. (if (exists (tackon FamCon_dest "FC_grammar.txt") (noreq))
  106.   (delete (tackon FamCon_dest "FC_grammar.txt"))
  107. )
  108. (if (exists (tackon FamCon_dest "FC_proj_icon.info") (noreq))
  109.   (delete (tackon FamCon_dest "FC_proj_icon.info"))
  110. )
  111.  
  112. (protect (tackon FamCon_dest "FamConView") "+s +r")
  113.  
  114. (complete 100)
  115.  
  116. (exit "3.5 demo installation completed.")
  117.